From f7fa7cb4f30ec7cb083d046300850a2900fd95f3 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 4 Apr 2011 22:46:22 -0500 Subject: [PATCH] debian-startup.diff * Emacs runs debian-startup and sets debian-emacs-flavor. Patch: debian-startup.diff * Emacs runs debian-startup during the startup process unless site-run-file is false. * The global variable debian-emacs-flavor is bound to 'emacs23. Author: Rob Browning --- lisp/startup.el | 21 +++++++++++++++++++-- 1 file changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 87f1a00bd54..cffc24a94ea 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -393,6 +393,10 @@ Warning Warning!!! Pure space overflow !!!Warning Warning :type 'directory :initialize 'custom-initialize-delay) +(defconst debian-emacs-flavor 'emacs23 + "A symbol representing the particular debian flavor of emacs running. +Something like 'emacs20, 'xemacs20, etc.") + (defun normal-top-level-add-subdirs-to-load-path () "Add all subdirectories of current directory to `load-path'. More precisely, this uses only the subdirectories whose names @@ -955,8 +959,21 @@ opening the first frame (e.g. open a connection to an X server).") ;; be loaded from site-run-file and wants to test if -q was given ;; should check init-file-user instead, since that is already set. ;; See cus-edit.el for an example. - (if site-run-file - (load site-run-file t t)) + + ;; Original upstream startup + ;; (if site-run-file + ;; (load site-run-file t t)) + ;; + + ;; Debian startup + (if site-run-file + (progn + ;; Load all the debian package snippets. + ;; It's in here because we want -q to kill it too. + (if (load "debian-startup" t t nil) + (debian-startup debian-emacs-flavor)) + ;; Now the normal site file... + (load site-run-file t t nil))) ;; Sites should not disable this. Only individuals should disable ;; the startup screen. -- 2.30.2